home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / pcmagff.arc / FORMFEED.SCR < prev   
Text File  |  1986-07-16  |  577b  |  41 lines
  1. N FORMFEED.COM
  2. A
  3. JMP    0130        ; Jump to Init
  4. DW    0,0
  5. STI            ; New Int. 9
  6. PUSH    AX
  7. IN    AL,60        ; Get KEY
  8. CMP    AL,37        ; See if PrtSc
  9. JNZ    012A
  10. MOV    AH,02        ; Check for Alt
  11. INT    16
  12. TEST    AL,08
  13. JZ    012A
  14. PUSH    DX
  15. MOV    DX,0000        ; Check printer
  16. MOV    AH,02        ;   status
  17. INT    17
  18. TEST    AH,80
  19. JZ    0129
  20. MOV    AL,0C        ; Print formfeed
  21. MOV    AH,00
  22. INT    17
  23. POP    DX
  24. POP    AX
  25. CS:
  26. JMP    FAR [0102]    ; Run old Int. 9
  27. MOV    AX,3509        ; Init: save
  28. INT    21        ;   Int. 9
  29. MOV    [0102],BX
  30. MOV    [0104],ES
  31. MOV    DX,0106        ; Set new
  32. MOV    AX,2509        ;   INT. 9
  33. INT    21
  34. MOV    DX,0130
  35. INT    27        ; Terminate
  36.  
  37. R CX
  38. 4A
  39. W
  40. Q
  41.